        jmp 100H
        org 100H
        mov r0,#05h     ; vvod constanty chisla prohodov
repeat:
        mov a,p0        ; pomestit v registr a dannie c porta p1
        mov r1,a        ; sdelat kopiy v registr r1
        anl a,#0fh      ; operaciya logicheskogo i dlya proverki na starshie bity
        jz www          ; esli posle anl v akkumulyatore 0 to pereiti na metku www
        mov a,r1        ; vosstanovit v a soderzhimoe registra r1
        orl a,#40h      ; logicheskoe ili dlya vistavleniya bita 7 v 1
        mov r1,a        ; pomestit a v r1
www:
        mov a,r1
        mov p1,a
                ; mov p1,#0ffh
        djnz r0,repeat
        jmp $
